home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / system / skey40.zip / EQUIP.BAT < prev    next >
DOS Batch File  |  1991-12-23  |  2KB  |  87 lines
  1. :Batutil c(o) 1990, 1991 Barry Simon and Richard Wilson
  2. : Version 4.0
  3. echo off
  4. cls
  5. batutil {inc %0 code}
  6. goto end
  7. :echo1
  8. Welcome to the @1FBATUTIL@1E equipment reading demo
  9.       This demonstration will show how BATUTIL
  10.       can give you information on your system
  11. :echo2
  12.  
  13.  
  14. Here is what BATUTIL found when it examined your machine
  15.   Your CPU is $1.
  16.   Your math coprocessor is $2.
  17.   You have $3 printer ports, $4 comm ports and $5 game ports.
  18.   You have $6 floppy drives and $7 monitor(s).
  19.   Your active monitor is $8.
  20.   You do$9 have an ANSI driver and you do$é have an enyukked keyboard.
  21.   Your DOS version is $V($â/10).$V($â\10).
  22.   Your LIM Ver is $V($ä/10).$V($ä\10)  (0.0 means no LIM).
  23.   Your Carousel partition is $à (0 means no Carousel).
  24.   Your Desqview partition is $å (0 means no Desqview).
  25.   Your free DOS memory is $V(4*$ê) K, your total LIM memory rounded to 64K
  26.     is $V($ë*64)K and your free LIM is $V(16*$è)K [$V(16*199) = $V(16*199) or more].
  27.   You have $ï DOS file handles and $ç DOS buffers.
  28.  
  29.   This is only some of the information that BATUTIL can access.  You can also
  30.   find out if a file exists on your path, whether a file has today's date
  31.   and even compare two files to see which is older.
  32.     Hit a key to exit the equipment demo and thanks for using BATUTIL.
  33.  
  34. :code
  35. {CU -}{RC $}{CLS}{RO 5}{CO 5}{FP %0 echo1}
  36. {RO +2}{CO 5}{EC One moment while I check out your system!}{GE WA3}
  37. {#I}{$1=$r}
  38. case $1 of
  39.   20:  $1=NEC V86
  40.    0:  $1=8086/8088
  41.    1:  $1=80186
  42.    2:  $1=80286
  43.    3:  $1=80386
  44. endcase
  45. {#P}{$3=$r}
  46. {@I}{$2=$r}
  47. case $2 of
  48.    0: $2=none
  49.    1: $2=8087
  50.    2: $2=80287
  51.    3: $2=80387
  52.    4: $2=80487
  53. endcase
  54. {#C}{$4=$r}
  55. {#G}{$5=$r}
  56. {#F}{$6=$r}
  57. {#T}{$7=$r}
  58. {#W}
  59. case $r of
  60.    1: $8=monochrome (non-Hercules)
  61.    2: $8=cga$Scolor
  62.    4: $8=ega$Scolor
  63.    5: $8=ega$Smono
  64.    6: $8=prof.$Sgraphics
  65.    7: $8=vga$Smono
  66.    8: $8=vga$Scolor
  67.   11: $8=mcga$Smono
  68.   12: $8=mcga$Scolor
  69.   21: $8=hercules$Smono
  70.   22: $8=hercules$Smonochrome$Splus
  71.   23: $8=hercules$SIncolor
  72. endcase
  73. {@A} if $r=1 then $9= else $9=not
  74. {#K} if $r=1 then $é= else $é=not
  75. {DO}{$â=$r}
  76. {LI}{$ä=$r}
  77. {CA}{$à=$r}
  78. {DV}{$å=$r}
  79. {@M}{$ê=$r}
  80. {#L}{$ë=$r}
  81. {@L}{$è=$r}
  82. {DO F}{$ï=$r}
  83. {DO B}{$ç=$r}
  84. {CL}{FE %0 echo2}{GE EL}{EC $_}
  85. :end
  86.  
  87.